home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 21 / AMIGAplus Sonderheft 21 (1999)(ICP)(DE)[!].iso / PublicDomain / System / CentreQuest / InstallCentreQuest < prev    next >
Text File  |  1999-08-23  |  1KB  |  50 lines
  1. ;Install script for CentreQuest
  2. ;$VER: 1.0
  3.  
  4. FailAt 21
  5. Resident C:RequestFile
  6. Resident C:Copy
  7.  
  8. Version >NIL: VERSION=39
  9. If WARN
  10.    Copy CentreQuest.guide.WB2.icon T:CentreQuest.guide.info
  11. Else
  12.    Copy CentreQuest.guide.WB3.icon T:CentreQuest.guide.info
  13. EndIf
  14.  
  15. RequestFile >ENV:CQDir DRAWER="SYS:WBStartup" TITLE="Select directory for CentreQuest program" DRAWERSONLY
  16. If WARN
  17.    Skip Cleanup
  18. EndIf
  19. Copy >NIL: CentreQuest CentreQuest.info TestRequest TestRequest.info $CQDir
  20. If WARN
  21.   SetENV CQError program
  22.   Skip Error
  23. EndIf
  24.  
  25. RequestFile >ENV:CQDir DRAWER=HELP: TITLE="Select directory for CentreQuest guide" DRAWERSONLY
  26. If WARN
  27.    Skip Cleanup
  28. EndIf
  29. Copy >NIL: CentreQuest.guide T:CentreQuest.guide.info $CQDir
  30. If WARN
  31.   SetENV CQError guide
  32.   Skip Error
  33. EndIf
  34.  
  35. Lab Cleanup
  36. UnSetENV CQDir
  37. Delete T:CentreQuest.guide.info QUIET
  38. Resident C:RequestFile REMOVE
  39. Resident C:Copy REMOVE
  40. Quit
  41.  
  42. Lab Error
  43. If EXISTS C:RequestChoice
  44.   RequestChoice >NIL: TITLE="CentreQuest Installer" BODY="Error copying $CQError" GADGETS="Exit"
  45. Else
  46.   Echo "Error copying $CQError" TO "CON:////CentreQuest Installer/CLOSE/NOSIZE/WAIT" 
  47. EndIf
  48. UnSetENV CQError
  49. Skip Cleanup BACK
  50.